Micron Document
Gopher Proxy

Main menu Proxy Menu Search Engine Back

vert.synchro.net:70 vert.synchro.net:70/0sub:pascal_l:1014
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Subj : FPC Oneliners.
To : All
From : Joseph Larsen
Date : Sun Jun 05 2016 09:30 am

Here's some code i'm having problems with. For some reason it takes two
presses of the down arrow key to get the bot_bar procedure.

--//--snip---------

procedure oneliners;

var Twriters : array[1..10] of string;
var Toneliner : array[1..10] of string;
var S : string;
var Foneline : string;
var Ch1 : char;
var Ch2 : char;
var Ch3 : char;
var Count : byte;
var Count2 : byte;


//### begin show procedure ######################################

Procedure show;

var Count : byte;

Begin
// clrscr;
printf('oneh.ans');
For Count := 1 To 10 Do Begin;
write('[1;37m+[0;37m');
write(Twriters[Count]);
write('[1;30m: 0;37m');
WriteLn(Toneliner[Count]);
End;
End; // show

//### end show procedure ########################################
//### begin init procedure ######################################

Procedure init;

Var f1 : textfile;
var Count : byte;

Begin
// GetThisUser;
fOneLine := ('/home/imp/imp/data/oneliner.lst');
If Not fileExists(fOneLine) Then Begin
Assign(f1, fOneLine);
ReWrite(f1);
For Count := 1 To 10 Do Begin
WriteLn(f1,'Ia! Cthulhu!');
WriteLn(f1,'IGNATIUS');
End;
Close(f1);
End;

Assign(f1, fOneLine);
Reset(f1);
If IoResult = 0 Then Begin
For Count := 1 To 10 Do Begin
ReadLn(f1, Toneliner[Count]);
ReadLn(f1, Twriters[Count]);
End;
Close(f1);
End;
End; // Init

//### begin bot_bar procedure ###################################

Procedure bot_bar;

Begin
printf('onen.ans');
Ch2 := ReadKey;
If Ch2 = #13 then Begin
exit;
End;
show;
End; // bot_bar

//### end bot_bar procedure #####################################
//### begin top_bar procedure ###################################

Procedure top_bar;

Var f1 : textfile;
var Count : byte;
var ch3 : char;


Begin
printf('oney.ans');
Ch3 := ReadKey;
If Ch3 = #13 then Begin
printf('oneline.asc');
Write('[3;3H');
inputl(s,70);
If s = '' then Begin
WriteLn('[1;30maborted[0;37m');
show;
Exit;
End;

For Count := 1 To 9 Do Begin
Count2 := Count + 1;
Toneliner[Count] := Toneliner[Count2];
Twriters[Count] := Twriters[Count2];
End;

tWriters[10]:=thisuser.name;
tOneliner[10] := s;

Assign(f1, fOneLine);
ReWrite(f1);
For Count := 1 To 10 do Begin
WriteLn(f1,tOneliner[Count]);
WriteLn(f1,tWriters[Count]);
End;
Close(f1);
End;
show;
End; // top_bar

//### end top_bar procedure #####################################
//### begin position procedure ##################################

Procedure position;

Begin
show;

Repeat
ch1:=ReadKey;
case ch1 of
#0 : begin
ch1:=ReadKey;
case ch1 of
#80 : bot_bar;
#72 : top_bar;
end;
end;
end;
until ch1=#13
end;

//### end position procedure ####################################

Begin
init;
Position;
End;
--//--snip----------

If someone could give me an idea of what's wrong, i'd appreciate it.

Thank you,


|09ignatius |07(|15cia|07)

--- DayDream BBS/UNIX (Linux) 2.15a
* Origin: catch22bbs.com >>> >> > (1:340/800)

.

you're on vert.synchro.net^70/0sub:pascal_l:1014
back link is vert.synchro.net:70/1sub:pascal_l